%%%
  VERSION:1
  LANGUAGE:ENGLISH
%%%

MODULE CALPEND(SYSMODULE,VIEWONLY)

	! $Revision: 1.6 $

  !
  !CalPendelum
  !
  PROC CalPendelum()
    CalPendelumProc;
  ENDPROC

  PROC CalPendelumProc()
    VAR num TPReadDummy;
    VAR bool bDummy;

    Load \Dynamic, "RELEASE:" \File:="options/calpend/calpend_proc.sys";
    %"PendelumProc"%;
    bDummy:=TRUE;
    WHILE bDummy DO
      %"CalPerformed"%bDummy;
    ENDWHILE
    UnLoad "RELEASE:" \File:="options/calpend/calpend_proc.sys";
    TPShow TP_LATEST;

  ERROR
    TEST ERRNO
    case ERR_LOADED:
  	   SkipWarn;
  	   TRYNEXT;
    default:
      TPShow TP_LATEST;
    ENDTEST
  ENDPROC  
 ENDMODULE


